/ Merciful 1 / Merciful - Disc 1.iso / software / m / math_vision / mathvisionv2.1b.dms / in.adf / HookExamples / Parametric / Chaos / Population.f

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 4f 52 4d 00 00 04 02 | 49 4c 42 4d 43 48 52 53 |FORM....|ILBMCHRS|
|00000010| 00 00 03 f6 58 6d 69 6e | 20 30 0a 58 6d 61 78 20 |....Xmin| 0.Xmax |
|00000020| 31 2e 34 30 30 30 30 30 | 0a 59 6d 69 6e 20 30 0a |1.400000|.Ymin 0.|
|00000030| 59 6d 61 78 20 31 2e 30 | 30 30 30 30 30 0a 43 6f |Ymax 1.0|00000.Co|
|00000040| 6e 74 6f 75 72 41 6e 63 | 68 6f 72 20 30 0a 43 6f |ntourAnc|hor 0.Co|
|00000050| 6e 74 6f 75 72 57 69 64 | 74 68 20 30 0a 43 6c 69 |ntourWid|th 0.Cli|
|00000060| 70 48 69 67 68 20 2d 32 | 2e 30 30 30 30 30 30 0a |pHigh -2|.000000.|
|00000070| 43 6c 69 70 4c 6f 77 20 | 2d 32 2e 30 30 30 30 30 |ClipLow |-2.00000|
|00000080| 30 0a 46 30 20 30 3d 63 | 61 73 65 28 63 6f 75 6e |0.F0 0=c|ase(coun|
|00000090| 74 3d 30 2c 66 61 2c 20 | 63 6f 75 6e 74 3c 31 30 |t=0,fa, |count<10|
|000000a0| 30 30 2c 66 62 2c 20 31 | 20 29 20 20 20 22 43 6f |00,fb, 1| )   "Co|
|000000b0| 6e 74 72 6f 6c 20 69 74 | 65 72 61 74 69 6f 6e 0a |ntrol it|eration.|
|000000c0| 46 41 20 6e 75 6c 6c 28 | 66 62 2c 20 73 65 74 28 |FA null(|fb, set(|
|000000d0| 78 2c 2e 35 29 2c 20 73 | 65 74 28 72 2c 33 2e 39 |x,.5), s|et(r,3.9|
|000000e0| 29 20 29 20 20 20 20 20 | 20 20 20 22 49 6e 69 74 |) )     |   "Init|
|000000f0| 69 61 6c 20 76 61 6c 75 | 65 73 0a 46 42 20 6e 75 |ial valu|es.FB nu|
|00000100| 6c 6c 28 20 73 65 74 28 | 78 2c 72 2a 78 2a 28 31 |ll( set(|x,r*x*(1|
|00000110| 2d 78 29 29 2c 20 73 65 | 74 28 6e 2c 78 29 2c 20 |-x)), se|t(n,x), |
|00000120| 66 68 20 29 20 20 22 53 | 61 76 65 20 6f 6c 64 20 |fh )  "S|ave old |
|00000130| 76 61 6c 75 65 20 5b 6e | 5d 2c 20 43 6f 6d 70 75 |value [n|], Compu|
|00000140| 74 65 20 6e 65 77 0a 46 | 43 20 0a 46 44 20 0a 46 |te new.F|C .FD .F|
|00000150| 45 20 0a 46 46 20 0a 46 | 47 20 0a 46 48 20 66 69 |E .FF .F|G .FH fi|
|00000160| 28 20 69 66 28 63 6f 75 | 6e 74 2c 20 63 6f 75 6e |( if(cou|nt, coun|
|00000170| 74 25 28 64 65 70 74 68 | 2d 31 29 2b 31 2c 30 29 |t%(depth|-1)+1,0)|
|00000180| 20 29 20 20 20 22 43 68 | 6f 6f 73 65 20 4e 65 78 | )   "Ch|oose Nex|
|00000190| 74 20 43 6f 6c 6f 72 0a | 46 49 20 6e 75 6c 6c 28 |t Color.|FI null(|
|000001a0| 64 72 61 77 28 78 2c 78 | 2c 61 31 29 2c 20 64 72 |draw(x,x|,a1), dr|
|000001b0| 61 77 28 6e 2c 78 2c 61 | 31 29 20 29 20 20 20 20 |aw(n,x,a|1) )    |
|000001c0| 20 20 22 44 69 73 70 6c | 61 79 0a 43 6f 6d 6d 65 |  "Displ|ay.Comme|
|000001d0| 6e 74 31 20 50 6f 70 75 | 6c 61 74 69 6f 6e 2c 20 |nt1 Popu|lation, |
|000001e0| 73 68 6f 77 69 6e 67 20 | 72 65 6c 61 74 69 6f 6e |showing |relation|
|000001f0| 73 68 69 70 20 62 65 74 | 77 65 65 6e 20 67 65 6e |ship bet|ween gen|
|00000200| 65 72 61 74 69 6f 6e 73 | 20 20 31 36 2d 6d 61 79 |erations|  16-may|
|00000210| 2d 39 30 20 64 68 0a 43 | 6f 6d 6d 65 6e 74 32 20 |-90 dh.C|omment2 |
|00000220| 69 6e 20 46 41 2c 20 58 | 20 3d 20 49 6e 69 74 69 |in FA, X| = Initi|
|00000230| 61 6c 20 50 6f 70 75 6c | 61 74 69 6f 6e 2c 20 30 |al Popul|ation, 0|
|00000240| 2e 2e 31 2c 20 20 52 20 | 3d 20 52 65 70 72 6f 64 |..1,  R |= Reprod|
|00000250| 75 63 74 69 6f 6e 20 72 | 61 74 65 2c 20 30 2e 2e |uction r|ate, 0..|
|00000260| 34 0a 43 6f 6d 6d 65 6e | 74 33 20 66 72 6f 6d 3a |4.Commen|t3 from:|
|00000270| 20 43 48 41 4f 53 2c 20 | 62 79 20 4a 61 6d 65 73 | CHAOS, |by James|
|00000280| 20 47 6c 65 69 63 6b 2c | 20 70 61 67 65 20 31 37 | Gleick,| page 17|
|00000290| 36 0a 4f 76 65 72 70 6c | 6f 74 20 46 0a 55 73 65 |6.Overpl|ot F.Use|
|000002a0| 42 61 63 6b 67 72 6f 75 | 6e 64 20 46 0a 4d 6f 64 |Backgrou|nd F.Mod|
|000002b0| 75 6c 6f 20 31 36 0a 43 | 6f 6d 70 6c 65 74 65 20 |ulo 16.C|omplete |
|000002c0| 30 0a 43 6f 6e 74 6f 75 | 72 53 61 6d 70 6c 65 44 |0.Contou|rSampleD|
|000002d0| 65 6c 74 61 20 30 0a 43 | 6f 6e 74 6f 75 72 53 63 |elta 0.C|ontourSc|
|000002e0| 61 6c 69 6e 67 20 46 0a | 43 6f 6e 74 6f 75 72 4e |aling F.|ContourN|
|000002f0| 6f 69 73 79 20 46 0a 43 | 6f 6e 74 6f 75 72 43 6c |oisy F.C|ontourCl|
|00000300| 69 70 70 69 6e 67 20 46 | 0a 42 6f 78 48 65 69 67 |ipping F|.BoxHeig|
|00000310| 68 74 20 30 0a 42 6f 78 | 4d 61 67 6e 69 66 69 63 |ht 0.Box|Magnific|
|00000320| 61 74 69 6f 6e 20 30 0a | 58 76 69 65 77 70 6f 69 |ation 0.|Xviewpoi|
|00000330| 6e 74 20 30 0a 5a 76 69 | 65 77 70 6f 69 6e 74 20 |nt 0.Zvi|ewpoint |
|00000340| 30 0a 50 65 72 73 70 65 | 63 74 69 76 65 53 61 6d |0.Perspe|ctiveSam|
|00000350| 70 6c 65 44 65 6c 74 61 | 20 30 0a 50 65 72 73 70 |pleDelta| 0.Persp|
|00000360| 65 63 74 69 76 65 20 54 | 0a 48 69 64 64 65 6e 5f |ective T|.Hidden_|
|00000370| 4c 69 6e 65 73 20 54 0a | 43 6c 69 70 54 6f 42 6f |Lines T.|ClipToBo|
|00000380| 78 20 54 0a 44 72 61 77 | 42 6f 78 20 54 0a 43 6f |x T.Draw|Box T.Co|
|00000390| 6c 6f 72 54 6f 70 20 54 | 0a 43 6f 6c 6f 72 42 6f |lorTop T|.ColorBo|
|000003a0| 74 74 6f 6d 20 46 0a 53 | 69 6d 70 6c 65 53 61 6d |ttom F.S|impleSam|
|000003b0| 70 6c 65 44 65 6c 74 61 | 20 30 0a 53 69 6d 70 6c |pleDelta| 0.Simpl|
|000003c0| 65 4e 6f 69 73 79 20 54 | 0a 53 69 6d 70 6c 65 47 |eNoisy T|.SimpleG|
|000003d0| 72 61 64 69 65 6e 74 31 | 20 46 0a 53 69 6d 70 6c |radient1| F.Simpl|
|000003e0| 65 47 72 61 64 69 65 6e | 74 32 20 46 0a 53 69 6d |eGradien|t2 F.Sim|
|000003f0| 70 6c 65 50 65 6e 20 32 | 0a 50 6c 6f 74 4d 6f 64 |plePen 2|.PlotMod|
|00000400| 65 20 43 6f 6e 74 6f 75 | 72 0a                   |e Contou|r.      |
+--------+-------------------------+-------------------------+--------+--------+